home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / remax2.spr < prev    next >
Encoding:
Text File  |  1994-07-07  |  12.6 KB  |  406 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/07/94             REMAX2.SPR                09:50:13 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *       LANG/Windows Databases, Indexes, Relations        
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("index")
  45.     SELECT index
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("index.dbf","DBF","Where is index?"));
  50.         AGAIN ALIAS index ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *               Windows Window definitions                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. IF NOT WEXIST("_qri0l2zvq")
  63.     DEFINE WINDOW _qri0l2zvq ;
  64.         AT 0.000, 0.000 ;
  65.         SIZE 22.000,98.400 ;
  66.         FONT "MS Sans Serif", 8 ;
  67.         FLOAT ;
  68.         NOCLOSE ;
  69.         MINIMIZE ;
  70.         SYSTEM
  71. ENDIF
  72.  
  73. IF NOT WEXIST("roster") ;
  74.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.PJX" ;
  75.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.SCX" ;
  76.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.MNX" ;
  77.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.PRG" ;
  78.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.FRX" ;
  79.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.QPR"
  80.     DEFINE WINDOW roster ;
  81.         AT 0.538, 32.200 ;
  82.         SIZE 26.846,59.200 ;
  83.         TITLE "Roster" ;
  84.         FONT "MS Sans Serif", 8 ;
  85.         FLOAT ;
  86.         CLOSE ;
  87.         MINIMIZE ;
  88.         SYSTEM ;
  89.         COLOR RGB(,,,255,255,255)
  90. ENDIF
  91.  
  92. IF NOT WEXIST("lang") ;
  93.     OR UPPER(WTITLE("LANG")) == "LANG.PJX" ;
  94.     OR UPPER(WTITLE("LANG")) == "LANG.SCX" ;
  95.     OR UPPER(WTITLE("LANG")) == "LANG.MNX" ;
  96.     OR UPPER(WTITLE("LANG")) == "LANG.PRG" ;
  97.     OR UPPER(WTITLE("LANG")) == "LANG.FRX" ;
  98.     OR UPPER(WTITLE("LANG")) == "LANG.QPR"
  99.     DEFINE WINDOW lang ;
  100.         AT 5.583, 41.250 ;
  101.         SIZE 18.769,29.400 ;
  102.         TITLE "Languages" ;
  103.         FONT "MS Sans Serif", 8 ;
  104.         FLOAT ;
  105.         CLOSE ;
  106.         MINIMIZE ;
  107.         SYSTEM
  108. ENDIF
  109.  
  110.  
  111. *       *********************************************************
  112. *       *                                                         
  113. *       *          REMAX2/Windows Setup Code - SECTION 2          
  114. *       *                                                         
  115. *       *********************************************************
  116. *
  117.  
  118. #REGION 1
  119. CLOSE DATABASES
  120.  
  121. ****    ROSTER   **************
  122. use index
  123. COUNT TO M.Count
  124. DIMENSION fieldnms(M.Count,1)
  125. COPY TO ARRAY fieldnms
  126. =ASORT(fieldnms)
  127.  
  128. M.Selectfld = 'Associate Name'
  129. Close databases
  130. *******************************
  131.  
  132. *******  Language    ***********
  133. USE Language
  134. COUNT TO M.Count
  135. DIMENSION ALANG(M.Count,1)
  136. COPY TO ARRAY ALANG
  137.  
  138. M.LangSlct = ' '
  139. CLOSE DATABASES
  140. *********************************
  141.  
  142.  
  143. #REGION 3
  144. DEFINE POPUP _qri0l34k0 ;
  145.     PROMPT FILES LIKE *.* ;
  146.     SCROLL
  147.  
  148. *       *********************************************************
  149. *       *                                                         
  150. *       *              REMAX2/Windows Screen Layout               
  151. *       *                                                         
  152. *       *********************************************************
  153. *
  154.  
  155. #REGION 1
  156. IF WVISIBLE("_qri0l2zvq")
  157.     ACTIVATE WINDOW _qri0l2zvq SAME
  158. ELSE
  159.     ACTIVATE WINDOW _qri0l2zvq NOSHOW
  160. ENDIF
  161. @ 10.154,21.600 GET m.data ;
  162.     PICTURE "@*VN Roster;Apps" ;
  163.     SIZE 2.308,16.000,0.769 ;
  164.     DEFAULT 1 ;
  165.     FONT "MS Sans Serif", 8 ;
  166.     STYLE "B" ;
  167.     VALID _qri0l350y()
  168. @ 2.846,21.200 SAY "Remax2" ;
  169.     FONT "MS Sans Serif", 8 ;
  170.     STYLE "T"
  171. @ 6.538,23.600 SAY "Select a database:" ;
  172.     FONT "MS Sans Serif", 8 ;
  173.     STYLE "T"
  174.  
  175.  
  176.  
  177.  
  178. *       *********************************************************
  179. *       *                                                         
  180. *       *              ROSTER/Windows Screen Layout               
  181. *       *                                                         
  182. *       *********************************************************
  183. *
  184.  
  185. #REGION 2
  186. IF WVISIBLE("roster")
  187.     ACTIVATE WINDOW roster SAME
  188. ELSE
  189.     ACTIVATE WINDOW roster NOSHOW
  190. ENDIF
  191. @ 5.615,2.600 GET M.Selectfld ;
  192.      PICTURE "@&N" ;
  193.     FROM fieldnms ;
  194.     SIZE 20.769,31.000 ;
  195.     DEFAULT 1 ;
  196.     FONT "MS Sans Serif", 8 ;
  197.     VALID _qri0l36fp()
  198. @ 2.231,2.400 SAY "Select a field to search by:" ;
  199.     FONT "MS Sans Serif", 14 ;
  200.     STYLE "T"
  201. @ 6.385,38.400 SAY "Boolean Search:" ;
  202.     FONT "MS Sans Serif", 8 ;
  203.     STYLE "T"
  204. @ 8.385,38.400 GET M.Boolean ;
  205.     PICTURE "@*RVN And;Or;Not" ;
  206.     SIZE 1.308,7.833,0.000 ;
  207.     DEFAULT 1 ;
  208.     FONT "MS Sans Serif", 8 ;
  209.     STYLE "BT"
  210. @ 5.538,36.000 TO 13.000,57.800 ;
  211.     PEN 1, 8
  212.  
  213.  
  214.  
  215.  
  216. *       *********************************************************
  217. *       *                                                         
  218. *       *               LANG/Windows Screen Layout                
  219. *       *                                                         
  220. *       *********************************************************
  221. *
  222.  
  223. #REGION 3
  224. IF WVISIBLE("lang")
  225.     ACTIVATE WINDOW lang SAME
  226. ELSE
  227.     ACTIVATE WINDOW lang NOSHOW
  228. ENDIF
  229. @ 0.077,0.200 GET M.LangSlct ;
  230.      PICTURE "@&N" ;
  231.     POPUP _qri0l34k0 ;
  232.     SIZE 18.462,28.600 ;
  233.     DEFAULT " " ;
  234.     FONT "MS Sans Serif", 8 ;
  235.     STYLE "" ;
  236.     VALID _qri0l399s()
  237.  
  238. IF NOT WVISIBLE("lang")
  239.     ACTIVATE WINDOW lang
  240. ENDIF
  241. IF NOT WVISIBLE("roster")
  242.     ACTIVATE WINDOW roster
  243. ENDIF
  244. IF NOT WVISIBLE("_qri0l2zvq")
  245.     ACTIVATE WINDOW _qri0l2zvq
  246. ENDIF
  247.  
  248.  
  249. READ CYCLE ;
  250.     ACTIVATE _qri0l38ru()
  251.  
  252. RELEASE WINDOW _qri0l2zvq
  253. RELEASE WINDOW lang
  254. RELEASE WINDOW roster
  255.  
  256. *       *********************************************************
  257. *       *                                                         
  258. *       *                Windows Closing Databases                
  259. *       *                                                         
  260. *       *********************************************************
  261. *
  262.  
  263. IF USED("index")
  264.     SELECT index
  265.     USE
  266. ENDIF
  267.  
  268. SELECT (m.currarea)
  269.  
  270. RELEASE POPUPS _qri0l34k0
  271.  
  272. #REGION 0
  273.  
  274. SET READBORDER &rborder
  275.  
  276. IF m.talkstat = "ON"
  277.     SET TALK ON
  278. ENDIF
  279. IF m.compstat = "ON"
  280.     SET COMPATIBLE ON
  281. ENDIF
  282.  
  283.  
  284. *       *********************************************************
  285. *       *                                                         
  286. *       * _QRI0L350Y           m.data VALID                       
  287. *       *                                                         
  288. *       * Function Origin:                                        
  289. *       *                                                         
  290. *       * From Platform:       Windows                            
  291. *       * From Screen:         REMAX2,     Record Number:    2    
  292. *       * Variable:            m.data                             
  293. *       * Called By:           VALID Clause                       
  294. *       * Object Type:         Push Button                        
  295. *       * Snippet Number:      1                                  
  296. *       *                                                         
  297. *       *********************************************************
  298. *
  299. FUNCTION _qri0l350y     &&  m.data VALID
  300. #REGION 1
  301. DO CASE
  302.     CASE m.data = 1
  303.         _CUROBJ=OBJNUM(m.Selectfld)
  304. ENDCASE
  305. Switch = .T.
  306.  
  307. *       *********************************************************
  308. *       *                                                         
  309. *       * _QRI0L36FP           M.Selectfld VALID                  
  310. *       *                                                         
  311. *       * Function Origin:                                        
  312. *       *                                                         
  313. *       * From Platform:       Windows                            
  314. *       * From Screen:         ROSTER,     Record Number:    2    
  315. *       * Variable:            M.Selectfld                        
  316. *       * Called By:           VALID Clause                       
  317. *       * Object Type:         List                               
  318. *       * Snippet Number:      2                                  
  319. *       *                                                         
  320. *       *********************************************************
  321. *
  322. FUNCTION _qri0l36fp     &&  M.Selectfld VALID
  323. #REGION 2
  324. SET EXACT OFF
  325. DO CASE
  326.     CASE Selectfld = 'Civic Activities'
  327.         _CUROBJ=OBJNUM(M.CivicSlct)
  328.     CASE Selectfld = 'Commercial Subspecialties'
  329.         _CUROBJ=OBJNUM(M.CommSlct)
  330.     CASE Selectfld = 'Hobbies/Interests'
  331.         _CUROBJ=OBJNUM(M.HobbieSlct)
  332.     CASE Selectfld = 'Miscellaneous'
  333.         _CUROBJ=OBJNUM(M.SpecPri)
  334.     CASE Selectfld = 'Associate Name'
  335.         _CUROBJ=OBJNUM(M.NameSlct)
  336.     CASE Selectfld = 'Average Sales Price'
  337.         _CUROBJ=OBJNUM(M.PriceMin)
  338.     CASE Selectfld = 'City'
  339.         _CUROBJ=OBJNUM(M.CitySlct)    
  340.     CASE Selectfld = 'Country'
  341.         _CUROBJ=OBJNUM(M.CountrySlct)
  342.     CASE Selectfld = 'Designations'
  343.         _CUROBJ=OBJNUM(M.DesigPer)
  344.     CASE Selectfld = 'Licensed'
  345.         _CUROBJ=OBJNUM(M.LicenseSlct)
  346.     CASE Selectfld = 'Joined RE/MAX'
  347.         _CUROBJ=OBJNUM(M.JoinSlct)
  348.     CASE Selectfld = 'HQ Company Staffs'
  349.         _CUROBJ=OBJNUM(M.HQSlct)
  350.     CASE Selectfld = 'Langauge'
  351.         _CUROBJ=OBJNUM(M.LangSlct)
  352.     CASE Selectfld = 'Zip/Postal Code'
  353.         _CUROBJ=OBJNUM(M.ZipSlct)
  354.     CASE Selectfld = 'Office ...'
  355.         _CUROBJ=OBJNUM(M.Name2Slct)
  356. ENDCASE
  357.  
  358. *       *********************************************************
  359. *       *                                                         
  360. *       * _QRI0L399S           M.LangSlct VALID                   
  361. *       *                                                         
  362. *       * Function Origin:                                        
  363. *       *                                                         
  364. *       * From Platform:       Windows                            
  365. *       * From Screen:         LANG,     Record Number:    3      
  366. *       * Variable:            M.LangSlct                         
  367. *       * Called By:           VALID Clause                       
  368. *       * Object Type:         List                               
  369. *       * Snippet Number:      3                                  
  370. *       *                                                         
  371. *       *********************************************************
  372. *
  373. FUNCTION _qri0l399s     &&  M.LangSlct VALID
  374. #REGION 3
  375. ON KEY LABEL ENTER DO PassVar WITH M.LangSlct, 'Languages'
  376.  
  377. *       *********************************************************
  378. *       *                                                         
  379. *       * _QRI0L38RU           Read Level Activate                
  380. *       *                                                         
  381. *       * Function Origin:                                        
  382. *       *                                                         
  383. *       *                                                         
  384. *       * From Platform:       Windows                            
  385. *       * From Screen:         Multiple Screens                   
  386. *       * Called By:           READ Statement                     
  387. *       * Snippet Number:      4                                  
  388. *       *                                                         
  389. *       *********************************************************
  390. *
  391. FUNCTION _qri0l38ru     && Read Level Activate
  392. *
  393. * Activate Code from screen: ROSTER
  394. *
  395. #REGION 2
  396. *HIDE WINDOW CIVIC
  397. *HIDE WINDOW COMM
  398. *HIDE WINDOW HOBBIE
  399. *HIDE WINDOW MISC
  400. *HIDE WINDOW NAME
  401. *HIDE WINDOW ZIP
  402. *
  403. * Activate Code from screen: LANG
  404. *
  405. #REGION 3
  406. SHOW WINDOW ROSTER